inherited FCadastroLocalProduto: TFCadastroLocalProduto
  Left = 279
  Top = 112
  Caption = 'Cadastro Local x Produto'
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsPesquisa: TTabSheet
      inherited pnPesquisa: TPanel
        inherited Pmostrando_excluidos: TPanel
          inherited Situacao_filtro_excluido: TLabel
            Width = 141
          end
        end
      end
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'LOCPROD_CODIGO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LOCPROD_PRODUTO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'LOCPROD_LOCAL'
            Title.Alignment = taCenter
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        object Label14: TLabel [0]
          Left = 10
          Top = 42
          Width = 40
          Height = 16
          Caption = 'C'#243'digo'
        end
        object Label3: TLabel [1]
          Left = 9
          Top = 86
          Width = 31
          Height = 16
          Caption = 'Local'
        end
        object Label66: TLabel [2]
          Left = 9
          Top = 131
          Width = 40
          Height = 16
          Caption = 'C'#243'digo'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label1: TLabel [3]
          Left = 81
          Top = 131
          Width = 88
          Height = 16
          Caption = 'Ref.Fornecedor'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel [4]
          Left = 209
          Top = 131
          Width = 72
          Height = 16
          Caption = 'Produto (F8)'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        inherited panel2: TPanel
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        object edCodigo: TDBEdit
          Left = 8
          Top = 61
          Width = 47
          Height = 22
          Ctl3D = False
          DataField = 'LOCPROD_CODIGO'
          DataSource = dsCadastro
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 2
        end
        object DBLCBLocal: TDBLookupComboBox
          Left = 9
          Top = 103
          Width = 276
          Height = 22
          Ctl3D = False
          DataField = 'LOCPROD_LOCAL'
          DataSource = dsCadastro
          KeyField = 'LOC_CODIGO'
          ListField = 'LOC_DESCRICAO'
          ListSource = DSLocal
          ParentCtl3D = False
          TabOrder = 3
          OnKeyDown = DBLCBLocalKeyDown
        end
        object EdCodProdutoMercadoria: TEdit
          Left = 9
          Top = 148
          Width = 65
          Height = 22
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 4
          OnExit = EdCodProdutoMercadoriaExit
        end
        object EdRefProdutoMercadoria: TEdit
          Left = 81
          Top = 148
          Width = 118
          Height = 22
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 5
          OnExit = EdRefProdutoMercadoriaExit
        end
        object DBLCBProdutoMercadoria: TDBLookupComboBox
          Left = 209
          Top = 148
          Width = 458
          Height = 22
          Hint = '(F3) Visualizar Descri'#231#227'o - (F7) Todos - (F8) Cliente'
          Ctl3D = False
          DataField = 'LOCPROD_PRODUTO'
          DataSource = dsCadastro
          KeyField = 'PROD_CODIGO'
          ListField = 'PROD_DESCRICAOSAI'
          ListSource = DSProduto
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          OnKeyDown = DBLCBProdutoMercadoriaKeyDown
        end
        object GroupBox1: TGroupBox
          Left = 10
          Top = 179
          Width = 657
          Height = 241
          Caption = '  Contas Cont'#225'beis  '
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 7
          object Label8: TLabel
            Left = 80
            Top = 21
            Width = 169
            Height = 16
            Caption = 'Conta Cont'#225'bil (F-8) - Cr'#233'dito'
          end
          object Label9: TLabel
            Left = 365
            Top = 19
            Width = 165
            Height = 16
            Caption = 'Conta Cont'#225'bil (F-8) - D'#233'bito'
          end
          object Label12: TLabel
            Left = 7
            Top = 45
            Width = 56
            Height = 16
            Caption = 'Opera'#231#227'o'
          end
          object Label11: TLabel
            Left = 7
            Top = 74
            Width = 32
            Height = 16
            Caption = 'ICMS'
          end
          object Label10: TLabel
            Left = 7
            Top = 107
            Width = 70
            Height = 16
            Caption = 'ICMS Subs.'
          end
          object Label13: TLabel
            Left = 7
            Top = 147
            Width = 15
            Height = 16
            Caption = 'IPI'
          end
          object Label2: TLabel
            Left = 7
            Top = 176
            Width = 21
            Height = 16
            Caption = 'PIS'
          end
          object Label15: TLabel
            Left = 7
            Top = 214
            Width = 48
            Height = 16
            Caption = 'COFINS'
          end
          object DBLookupComboBox1: TDBLookupComboBox
            Left = 80
            Top = 41
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_CRE_OPERACAO'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 0
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object DBLookupComboBox2: TDBLookupComboBox
            Left = 365
            Top = 41
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_DEB_OPERACAO'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 1
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblCredICMS: TDBLookupComboBox
            Left = 80
            Top = 74
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_CRE_ICMS'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 2
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblCredICMSSubs: TDBLookupComboBox
            Left = 80
            Top = 107
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_CRE_ICMS_SUBS'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 4
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblCredIPI: TDBLookupComboBox
            Left = 80
            Top = 142
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_CRE_IPI'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 6
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblCredPIS: TDBLookupComboBox
            Left = 80
            Top = 176
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_CRE_PIS'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 8
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblCredCOFINS: TDBLookupComboBox
            Left = 80
            Top = 209
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_CRE_COFINS'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 10
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblDebICMS: TDBLookupComboBox
            Left = 365
            Top = 74
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_DEB_ICMS'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 3
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblDebICMSSub: TDBLookupComboBox
            Left = 365
            Top = 107
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_DEB_ICMS_SUBS'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 5
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblDebIPI: TDBLookupComboBox
            Left = 365
            Top = 142
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_DEB_IPI'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 7
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblDebPIS: TDBLookupComboBox
            Left = 365
            Top = 176
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_DEB_PIS'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 9
            OnKeyDown = DBLookupComboBox1KeyDown
          end
          object dblDebCOFINS: TDBLookupComboBox
            Left = 365
            Top = 209
            Width = 277
            Height = 22
            Ctl3D = False
            DataField = 'LOCPROD_CONT_DEB_COFINS'
            DataSource = dsCadastro
            KeyField = 'PLANOCONT_CODIGO'
            ListField = 'PLANOCONT_DESCRICAO'
            ListSource = DSPlanoConta
            ParentCtl3D = False
            TabOrder = 11
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 272
    Top = 344
  end
  inherited dsCadastro: TDataSource
    Left = 112
    Top = 336
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'SELECT * FROM LOCAL_PRODUTO')
    Left = 256
    Top = 272
    object QCadastroLOCPROD_CODIGO: TIntegerField
      FieldName = 'LOCPROD_CODIGO'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CODIGO'
    end
    object QCadastroLOCPROD_PRODUTO: TIntegerField
      FieldName = 'LOCPROD_PRODUTO'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_PRODUTO'
    end
    object QCadastroLOCPROD_LOCAL: TIntegerField
      FieldName = 'LOCPROD_LOCAL'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_LOCAL'
    end
    object QCadastroLOCPROD_CONT_CRE_OPERACAO: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_OPERACAO'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_CRE_OPERACAO'
    end
    object QCadastroLOCPROD_CONT_DEB_OPERACAO: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_OPERACAO'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_DEB_OPERACAO'
    end
    object QCadastroLOCPROD_CONT_CRE_ICMS: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_ICMS'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_CRE_ICMS'
    end
    object QCadastroLOCPROD_CONT_DEB_ICMS: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_ICMS'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_DEB_ICMS'
    end
    object QCadastroLOCPROD_CONT_CRE_ICMS_SUBS: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_ICMS_SUBS'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_CRE_ICMS_SUBS'
    end
    object QCadastroLOCPROD_CONT_DEB_ICMS_SUBS: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_ICMS_SUBS'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_DEB_ICMS_SUBS'
    end
    object QCadastroLOCPROD_CONT_CRE_IPI: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_IPI'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_CRE_IPI'
    end
    object QCadastroLOCPROD_CONT_DEB_IPI: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_IPI'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_DEB_IPI'
    end
    object QCadastroLOCPROD_CONT_CRE_PIS: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_PIS'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_CRE_PIS'
    end
    object QCadastroLOCPROD_CONT_DEB_PIS: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_PIS'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_DEB_PIS'
    end
    object QCadastroLOCPROD_CONT_CRE_COFINS: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_COFINS'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_CRE_COFINS'
    end
    object QCadastroLOCPROD_CONT_DEB_COFINS: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_COFINS'
      Origin = 'BASE.LOCAL_PRODUTO.LOCPROD_CONT_DEB_COFINS'
    end
    object QCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.LOCAL_PRODUTO.USUARIO'
      Size = 10
    end
    object QCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.LOCAL_PRODUTO.DATAMODIFICACAO'
    end
    object QCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
      Origin = 'BASE.LOCAL_PRODUTO.USUARIO_CADASTRO'
    end
    object QCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
      Origin = 'BASE.LOCAL_PRODUTO.USUARIO_AUTERACAO'
    end
    object QCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
      Origin = 'BASE.LOCAL_PRODUTO.USUARIO_EXCLUSAO'
    end
    object QCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
      Origin = 'BASE.LOCAL_PRODUTO.DATA_CADASTRO'
    end
    object QCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
      Origin = 'BASE.LOCAL_PRODUTO.DATA_EXCLUSAO'
    end
    object QCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
      Origin = 'BASE.LOCAL_PRODUTO.DATA_AUTERACAO'
    end
    object QCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Origin = 'BASE.LOCAL_PRODUTO.EXCLUIDO'
      Size = 1
    end
    object QCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
      Origin = 'BASE.LOCAL_PRODUTO.USUARIO_RECUPERACAO'
    end
    object QCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
      Origin = 'BASE.LOCAL_PRODUTO.DATA_RECUPERACAO'
    end
    object QCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
      Origin = 'BASE.LOCAL_PRODUTO.CODIGOEMPRESA'
    end
  end
  inherited cdsCadastro: TClientDataSet
    object cdsCadastroLOCPROD_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'LOCPROD_CODIGO'
    end
    object cdsCadastroLOCPROD_PRODUTO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'Cod. Produto'
      FieldName = 'LOCPROD_PRODUTO'
    end
    object cdsCadastroLOCPROD_LOCAL: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'Cod. Local'
      FieldName = 'LOCPROD_LOCAL'
    end
    object cdsCadastroLOCPROD_CONT_CRE_OPERACAO: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_OPERACAO'
    end
    object cdsCadastroLOCPROD_CONT_DEB_OPERACAO: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_OPERACAO'
    end
    object cdsCadastroLOCPROD_CONT_CRE_ICMS: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_ICMS'
    end
    object cdsCadastroLOCPROD_CONT_DEB_ICMS: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_ICMS'
    end
    object cdsCadastroLOCPROD_CONT_CRE_ICMS_SUBS: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_ICMS_SUBS'
    end
    object cdsCadastroLOCPROD_CONT_DEB_ICMS_SUBS: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_ICMS_SUBS'
    end
    object cdsCadastroLOCPROD_CONT_CRE_IPI: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_IPI'
    end
    object cdsCadastroLOCPROD_CONT_DEB_IPI: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_IPI'
    end
    object cdsCadastroLOCPROD_CONT_CRE_PIS: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_PIS'
    end
    object cdsCadastroLOCPROD_CONT_DEB_PIS: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_PIS'
    end
    object cdsCadastroLOCPROD_CONT_CRE_COFINS: TIntegerField
      FieldName = 'LOCPROD_CONT_CRE_COFINS'
    end
    object cdsCadastroLOCPROD_CONT_DEB_COFINS: TIntegerField
      FieldName = 'LOCPROD_CONT_DEB_COFINS'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Size = 1
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 736
    Top = 80
  end
  inherited OpenDialog1: TOpenDialog
    Left = 776
    Top = 80
  end
  object DSLocal: TDataSource
    DataSet = DMGestao.QLocal
    Left = 680
    Top = 80
  end
  object QProduto: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From produto ')
    Left = 512
    Top = 272
  end
  object DSProduto: TDataSource
    DataSet = QProduto
    OnDataChange = DSProdutoDataChange
    Left = 440
    Top = 240
  end
  object DSPlanoConta: TDataSource
    DataSet = DMFinanceiro.QPlanoContabil
    Left = 728
    Top = 320
  end
end
